object ConvertForm: TConvertForm Left = 170 Top = 40 BorderStyle = bsDialog Caption = 'Conversion Charts' ClientHeight = 396 ClientWidth = 284 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 284 EdgeBorders = [ebTop, ebBottom] TabOrder = 0 object Convertbtn: TBitBtn Left = 0 Top = 2 Width = 67 Height = 22 Caption = 'Convert' TabOrder = 0 OnClick = ConvertbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373 3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000 000077777777777777773303333333333333337FFF333333333F370993333333 3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7 977777777777777777773303339C333C9333337F3377F3377F33370333C93339 C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777 C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3 3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777 7777777777777777777733333333333333333333333333333333} NumGlyphs = 2 end object Panel1: TPanel Left = 67 Top = 2 Width = 128 Height = 22 BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 1 object Label35: TLabel Left = 59 Top = 0 Width = 11 Height = 20 Caption = '&&' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ImpEdit: TEdit Left = 1 Top = 0 Width = 50 Height = 21 Ctl3D = True ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 end object MetEdit: TEdit Left = 76 Top = 0 Width = 50 Height = 21 Ctl3D = True ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 1 end end object BitBtn1: TBitBtn Left = 195 Top = 2 Width = 58 Height = 22 TabOrder = 2 Kind = bkClose end object Panel2: TPanel Left = 253 Top = 2 Width = 4 Height = 22 BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 3 end object BitBtn2: TBitBtn Left = 257 Top = 2 Width = 26 Height = 22 TabOrder = 4 OnClick = BitBtn2Click Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633 3333333333333FF3333333330000333333364463333333333333388F33333333 00003333333E66433333333333338F38F3333333000033333333E66333333333 33338FF8F3333333000033333333333333333333333338833333333300003333 3333446333333333333333FF3333333300003333333666433333333333333888 F333333300003333333E66433333333333338F38F333333300003333333E6664 3333333333338F38F3333333000033333333E6664333333333338F338F333333 0000333333333E6664333333333338F338F3333300003333344333E666433333 333F338F338F3333000033336664333E664333333388F338F338F33300003333 E66644466643333338F38FFF8338F333000033333E6666666663333338F33888 3338F3330000333333EE666666333333338FF33333383333000033333333EEEE E333333333388FFFFF8333330000333333333333333333333333388888333333 0000} NumGlyphs = 2 end end object PageControl1: TPageControl Left = 2 Top = 36 Width = 280 Height = 359 ActivePage = TabSheet2 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Temperature' object Label34: TLabel Left = 2 Top = 152 Width = 270 Height = 13 Caption = '37 ------------------------------98.6--- Normal Body Temperature' + ' --' end object Label1: TLabel Left = 15 Top = 312 Width = 15 Height = 13 Alignment = taRightJustify Caption = '-40' end object Label2: TLabel Left = 15 Top = 291 Width = 15 Height = 13 Alignment = taRightJustify Caption = '-30' end object Label3: TLabel Left = 15 Top = 271 Width = 15 Height = 13 Alignment = taRightJustify Caption = '-20' end object Label4: TLabel Left = 15 Top = 250 Width = 15 Height = 13 Alignment = taRightJustify Caption = '-10' end object Label5: TLabel Left = 24 Top = 229 Width = 6 Height = 13 Alignment = taRightJustify Caption = '0' end object Label6: TLabel Left = 18 Top = 208 Width = 12 Height = 13 Alignment = taRightJustify Caption = '10' end object Label7: TLabel Left = 18 Top = 188 Width = 12 Height = 13 Alignment = taRightJustify Caption = '20' end object Label8: TLabel Left = 18 Top = 167 Width = 12 Height = 13 Alignment = taRightJustify Caption = '30' end object Label9: TLabel Left = 18 Top = 146 Width = 12 Height = 13 Alignment = taRightJustify Caption = '40' end object Label10: TLabel Left = 18 Top = 126 Width = 12 Height = 13 Alignment = taRightJustify Caption = '50' end object Label11: TLabel Left = 18 Top = 105 Width = 12 Height = 13 Alignment = taRightJustify Caption = '60' end object Label12: TLabel Left = 18 Top = 84 Width = 12 Height = 13 Alignment = taRightJustify Caption = '70' end object Label13: TLabel Left = 18 Top = 63 Width = 12 Height = 13 Alignment = taRightJustify Caption = '80' end object Label14: TLabel Left = 18 Top = 43 Width = 12 Height = 13 Alignment = taRightJustify Caption = '90' end object Label15: TLabel Left = 12 Top = 22 Width = 18 Height = 13 Alignment = taRightJustify Caption = '100' end object Label16: TLabel Left = 78 Top = 22 Width = 190 Height = 13 Caption = '212 ------------------ Boiling --------------------------' end object Label17: TLabel Left = 78 Top = 43 Width = 25 Height = 13 AutoSize = False Caption = '194' end object Label18: TLabel Left = 78 Top = 63 Width = 25 Height = 13 AutoSize = False Caption = '176' end object Label19: TLabel Left = 78 Top = 84 Width = 25 Height = 13 AutoSize = False Caption = '158' end object Label20: TLabel Left = 78 Top = 105 Width = 25 Height = 13 AutoSize = False Caption = '140' end object Label21: TLabel Left = 78 Top = 126 Width = 25 Height = 13 AutoSize = False Caption = '122' end object Label22: TLabel Left = 78 Top = 146 Width = 25 Height = 13 AutoSize = False Caption = '104' end object Label23: TLabel Left = 78 Top = 167 Width = 25 Height = 13 AutoSize = False Caption = '86' end object Label24: TLabel Left = 78 Top = 188 Width = 25 Height = 13 AutoSize = False Caption = '68' end object Label25: TLabel Left = 78 Top = 208 Width = 25 Height = 13 AutoSize = False Caption = '50' end object Label26: TLabel Left = 78 Top = 229 Width = 193 Height = 13 Caption = '32 --------------------- Freezing -----------------------' end object Label27: TLabel Left = 78 Top = 250 Width = 25 Height = 13 AutoSize = False Caption = '14' end object Label28: TLabel Left = 78 Top = 271 Width = 25 Height = 13 AutoSize = False Caption = '-4' end object Label29: TLabel Left = 78 Top = 291 Width = 25 Height = 13 AutoSize = False Caption = '-22' end object Label30: TLabel Left = 78 Top = 312 Width = 25 Height = 13 AutoSize = False Caption = '-40' end object Label31: TLabel Left = 3 Top = 2 Width = 93 Height = 13 Caption = 'Celcius to Farenheit' end object Label32: TLabel Left = 176 Top = 286 Width = 34 Height = 13 Caption = 'Celcius' end object Label33: TLabel Left = 166 Top = 311 Width = 44 Height = 13 Caption = 'Farenheit' end object CentTrack: TTrackBar Left = 32 Top = 15 Width = 45 Height = 317 Max = 100 Min = -40 Orientation = trVertical Frequency = 2 Position = 100 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBoth TickStyle = tsAuto OnChange = CentTrackChange end object CentPanel: TPanel Left = 221 Top = 282 Width = 48 Height = 21 Alignment = taLeftJustify BorderStyle = bsSingle Color = clWhite TabOrder = 1 end object FarPanel: TPanel Left = 221 Top = 308 Width = 48 Height = 21 Alignment = taLeftJustify BorderStyle = bsSingle Color = clWhite TabOrder = 2 end end object TabSheet2: TTabSheet Caption = 'Weights && Measures' object Memo1: TMemo Left = 0 Top = 0 Width = 272 Height = 331 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'Length' '' ' 1 Millimeter' ' = 0.03937 inches' '' ' 1 Centimeter' ' = 0.3937 inches' '' ' 1 Decimeter' ' = 3.937 inches' '' ' 1 Meter' ' = 39.37 inches' ' = 3.28 feet' ' = 1.094 yards' '' ' 1 Dekameter' ' = 32.808 feet' '' ' 1 Kilometer' ' = 3280.8 feet = 0.621 miles' '' ' Area' '' ' 1 Square Millimeter' ' = 0.002 square inches' '' ' 1 Square Centimeter' ' = 0.155 square inches' '' ' 1 Square Decimeter' ' = 15.5 square inches' '' ' 1 Square Meter' ' = 10.764 square feet' ' = 1.196 square yards' '' ' 1 Are' ' = 119.599 square yards' ' = 0.025 acres' '' ' 1 Hectare' ' = 2.471 acres' '' ' 1 Square Kilometer' ' = 0.386 square miles' ' = 247.1 acres' '' 'Volume' '' ' 1 Milliliter' ' = 0.271 fluid drams' '' ' 1 Litre' ' = 1.057 liquid quarts' ' = 1.74 pints' '' ' 1 Decalitre' ' = 2.642 gallons' '' ' 1 Hecolitre' ' = 26.418 gallons' '' 'Weight' '' ' 1 Milligram' ' = 0.015 grains' '' ' 1 gram' ' = 15.432 grains' ' = 0.035 ounces' '' ' 1 Kilogram' ' = 25.274 ounces' ' = 2.205 pounds' '' ' 1 Metric Ton' ' = 1.102 short tons' ' = 2,204.623 pounds') ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object TabSheet3: TTabSheet Caption = 'Gifts' object Memo2: TMemo Left = 0 Top = 0 Width = 272 Height = 331 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'Month' ' Birthstones' ' Flowers' '' 'January' ' Garnet ' ' Carnation, Snowdrop ' '' 'February' ' Amethyst' ' Violet, Primrose' '' 'March' ' Bloodstone, Aquamarine' ' Jonquil, Daffodil' '' 'April' ' Diamond' ' Sweet Pea, Daisy' '' 'May' ' Emerald' ' Lily of the Valley, Hawthorn' '' 'June' ' Pearl, Moonstone, Alexandrite' ' Rose, Honeysuckle' '' 'July' ' Ruby' ' Larkspur, waterlilly' '' 'August' ' Sardonyx, Peridot' ' Poppy, Gladiolus' '' 'September' ' Saphire' ' Aster, Morning Glory' '' 'October' ' Opal, Tourmailine' ' Calendula, Cosmos' '' 'November' ' Topaz' ' Chrysanthemum' '' 'December' ' Turquoise, Zircon' ' Narcissus, Holly') ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object TabSheet4: TTabSheet Caption = 'Anniversaries' object Memo3: TMemo Left = 0 Top = 0 Width = 272 Height = 331 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'Anniversaries' '' '1st' ' -- Paper (Clocks)' '' '2nd' ' -- Cotton (China)' '' '3rd' ' -- Leather (Crystal, Glass)' '' '4th' ' -- Linen, Silk (Electrical)' '' '5th' ' -- Wood (Silverware)' '' '6th' ' -- Iron (Wood)' '' '7th' ' -- Wool, Copper (Desk Sets, Pen-Pencil Sets)' '' '8th' ' -- Bronze (linens, Laces)' '' '9th' ' -- Pottery, China (Leather)' '' '10th' ' -- Tin, Aluminium (Diamond, Jewelry)' '' '11th' ' -- Steel (Fashion Jewelry)' '' '12th' ' -- Silk (Pearls, Coloured Gems)' '' '13th' ' -- Lace (Textiles)' '' '14th' ' -- Foux Ivory (Gold Jewelry) ' '' '15th' ' -- Crystal (Watches)' '' '20th' ' -- China (Platinum)' '' '25th' ' -- Silver (Sterling Silver)' '' '30th' ' -- Pearl (Diamond)' '' '35th' ' -- Coral (Jade)' '' '40th' ' -- Ruby (Ruby)' '' '45th' ' -- Saphire' '' '50th' ' -- Gold' '' '55th' ' -- Emerald' '' '60th' ' -- Diamond') ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end end object ConvertPop: TPopupMenu AutoPopup = False Left = 146 Top = 148 object InchesCentimeters1: TMenuItem Caption = 'Inches && Centimeters' OnClick = InchesCentimeters1Click end object FeetMeters1: TMenuItem Tag = 1 Caption = 'Feet && Meters' OnClick = InchesCentimeters1Click end object YardsMeters1: TMenuItem Tag = 2 Caption = 'Yards && Meters' OnClick = InchesCentimeters1Click end object MilesKilometers1: TMenuItem Tag = 3 Caption = 'Miles && Kilometers' OnClick = InchesCentimeters1Click end object N1: TMenuItem Caption = '-' end object SquareInchesCentimeters1: TMenuItem Tag = 4 Caption = 'Square Inches && Centimeters' OnClick = InchesCentimeters1Click end object SquareFeetDecimeters1: TMenuItem Tag = 5 Caption = 'Square Feet && Decimeters' OnClick = InchesCentimeters1Click end object SquareYardsMeters1: TMenuItem Tag = 6 Caption = 'Square Yards && Meters' OnClick = InchesCentimeters1Click end object SquareMilesKilometers1: TMenuItem Tag = 7 Caption = 'Square Miles && Kilometers' OnClick = InchesCentimeters1Click end object N2: TMenuItem Caption = '-' end object PintsLitres1: TMenuItem Tag = 8 Caption = 'Pints && Litres' OnClick = InchesCentimeters1Click end object GallonsLitres1: TMenuItem Tag = 9 Caption = 'Gallons && Litres' OnClick = InchesCentimeters1Click end object N3: TMenuItem Caption = '-' end object OuncesGrams1: TMenuItem Tag = 10 Caption = 'Ounces && Grams' OnClick = InchesCentimeters1Click end object PoundsGrams1: TMenuItem Tag = 11 Caption = 'Pounds && Grams' OnClick = InchesCentimeters1Click end object TonsTonnes1: TMenuItem Tag = 12 Caption = 'Tons && Tonnes' OnClick = InchesCentimeters1Click end end end